


2000 ATTEND 
COMPUTERAMA 


RADIO SHACK'S Compu- 
terama '81 was held at 
the Hyatt Regency in 
Houston, on January 20, 
1981. 

According to  Emmett 
Duemke, District Мапа - 
ger for Radio Shack, 
approximately 2000 com- 
puter enthusiasts atten- 
ded the show. 

Computerama '81 fea- 
tured a number of Radio 
Shack items, including 
the TRS-80 Color Compu- 


ter, the TRS-80 Pocket 
Computer, and TRS-80 
Videotex. 


Also demonstrated at 
the show were Visicalc 
and Scripsit. 

Duemke noted that 
the '81 show was the 
third annual show spon- 
sored by Radio Shack. 
Over 100 shows are be- 
ing held throughout the 
nation this year. 

The show featured 
several areas where 
those attending  opera- 
ted the computers. Most 
of the areas were for 
those who have had lit- 
tle or no experience 
with the Radio Shack 
line of computers. 

Demonstrations of the 
computer line were held 
throughout the day cul- 
minating in the drawing 
for the give-away of two 
Radio Shack computers. 

TONY JOHNSON of Mc- 
Cormick Oil & Gas was 
the winner of the TRS - 
80 Pocket Computer and 
RONALD W. DELORME of the 
Union Carbide Company in 
Bellaire won the TRS-80 
Color Computer. 
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MORE THAN 32 TRS-80 computers were set up in the 


main 
terama 
showing 
were 
ters. 


Т.К.5. 


Special "THANKS" go to 
the following people 
for their extra-special 
help with this issue 
of USERS' NEWS. 


Ben Taylor 
Bill Young 
‘Robert Eden 
Emery Wood 


Also, "Thanks" to all 
who submitted items for 
this issue of our news- 
letter. 
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"81. Неге 


TRS-80 is а trade- 


mark of Tandy Corp.  . 


demonstration area of Radio 
those 
the Radio Shack computer line 
given the opportunity to operate the compu- 


Shack's Compu- 
attending saw a film 
and then 


Date; FEBRUARY 4, 1981 
Time: 7:30 p.m. 
Location: SCHOOL OF PUB- 
LIC HEALTH, UNIVERSITY 
OF TEXAS 

Program: Hardware Demon- 
stration by KEVIN TAYLOR 
of COMPUTEX 


"IF" state- 


Lan = 


Assembly 
guage explained by MERRICK 
JOHNSON. 

"Basic", 
by KIP BARTRAN. 


cont. 
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W ROBERT EDEN reports that ` 
A NOTE FROM THE PRESIDENT LT. condos of 
E B BIL YOUNG’ 22 ev system apés ;dpend the 
x L ` E foiiowifg?'linés ^to the 
WELCOME TO THE USERS' NEWS. We have а new Ed- ` j'beginninj^8f “yo 


itor as of this issue and 
give her their support. 
80-COMPUTER USERS.OF HOUSTON exists to provide 
an environment for communication and mutual help. 
This group gives- us. all а way to get together 
with other TRS-80-owners:and users.  Through.the 
group, we can share our knowledge and enthusiasm. 
If we are 


I hope everyone will. 


ciation, we need to remember that the more we 
participate, the more we will benefit from the 
club. 1 Dau 


-80- COMPUTER USERS OF. HOUSTON is a very loosely 
organized „ group. We һауе a President, 
President/Treasurer and a Secretary. These three 
officers determine the policies and business pro- 
cedures of the group. The meetings are primarily. 
for the members. to. get the most information апа 
help from the.. club programs , and discussions. 
Business or organizational meetings are held af- 
ter the group meetings and during the month. Any- 
one wishing to | discuss, the group's business is 
encouraged to contact myself of any group officer 
during the month or after the meetings. 

All meetings consist of a demonstration or 
presentation by members or by an outside speaker, 
followed by the "Round.Robin". The "Round Robin". 
gives everyone 
bers of the group what he is currently doing. We 
are always interested in your experiences with 
software---both good and bad. Any reports on hard- 
ware which you have tried can be shared with the 
group at this time. A ‘reference to some particu- 
lar item in the Round Robin will allow other mem- 
bers with similar interests to contact you after, 
the meeting. 

Anyone wishing to present a program, or give a 
talk on some subject that will be of interest tó 


the group is strongly urged to contact anofficer. | 


We would like a mixture of topics from as many 
sources as possible to present different points 
of view and ideas. Remember, if no one parti- 
cipates, the group will not progress, or even con- 
tinue to exist. Thanks for your help. 


Ete. 


THOMAS COOK submits the following solution to the 
problem of not remembering the name of a system 
tape. After you get your program ready, enter 
the following: 

10 INPUT #-1,А$ 

20 PRINT MIDS (AS,2,6) 

RUN 
This will then permit the computer to start the tape, 
read it, and display the name of the system tape. 


ап “opportunity to tell the mem- ' 


going, to get the most out of our asse--- 
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a Vice-. | 
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INOTES FROM COMPUSERVE: 
Ben Taylor 
re cx ae ж-е 
USERS! “NEWS is:published 
monthly shy. /8 0--COMPUTER 
USERS OF HOUSTON. Mail 
contributions, letters 
to the Editor, comments 
екс. to: 
р.0. Box 20000 4220 
Houston, 
or phone .(7 
* 
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:00 ‘per verti- 
cal solus inch. Mini- 
mum brilfnd on ‘апу ad- 
tvertising*is +S 3.00. 
Special frequency dis- 
counts. No chdtge for 
pérsonat ‘adver i 
membérs ТИЯ 
DEADLINE #‘iE5th ‹ cof month 
prior tó:publication. 
SUBSCRIPTIONS: Included 
ігі membérs'-^dues.:Indi- 
vidual issues available 
to non-members “for 75¢ 
per- issue. 4746. charge 
for newsletter exchange. 
USERS' NEWS mailing list 
is available for sale. 
Publisher does not ав- 
sume responsibility 
for programs and other 
material submitted that 
may be copyrighted. 
DO NOT SUBMIT COPYRIGHTED 

MATERIAL. 





“se A Қалы POCKET COMPUTER DATABASE 
By W.K. Weilbacher@1980 ^. 


ВЕЕРІ 

Х-26:Х-Х%2 
GOTOS0 an 
V$-"CLEARS" #М$="` DATA" : PAUSE V$,N$:CLEAR:BEEP3:X- 
PAUSE Z:INPUT"NAME" ; AS (X) t uai 
PAUSE AS(X):1P A$(X)-""GOTO50 
IF A$ (X)="C"GOSUB260:GOTO210 
IF A$ (X)="S"GOSUB260:GOTO270 
="L"GOSUB260 :GOTO320 
P'"GOSUB260:GOTO180 








X=X+1 : 
INPUT"PHONE";A$(X) 

PAUSE A$ (X) :IF А$(Х) =" "СОТО120 
X=X+1:Z=X-264INPUT"PRINT 2"; VS 

IF V$-"Y"THEN180 

IF 27100 LET Z-100:PRINT"CANNOT":END 
GOTO50 I 

FOR Ү=27 TO 127:PAUSEY-26;A$(Y) 

IF A$(Y)-2""V$2"":GOTO330 

МЕХТҮ:СОТО50 ` 
INPUT"CHG #";С . 

IF С>100ТНЕМ210 

IFCKlTHEN210 `- 7 

C=C+26:INPUT"N. *-INFO";A$ (C) 

PAUSE C-26,A$(C):GOTO50 

A$ (X)="" : RETURN 

INPUT"S. NAME" ;B$ 

FOR Y-27 to 127:1F А$(Ү)=В$ТНЕМ 310 

IF AS(Y)-""THEN 330 + 
МЕХТ Ү лал 

BEEP2:PRINT AS(Y):Y-Y*1:PRINT А$ (Ү) :С0Т050 
INPUT "LIST £";Y:Y-Yt26:PRINT Ү-26;А$(Ү) :607050 
Yy2127:NEXTY :GOTO50 



















:7:4:с07050 
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CREATING QUICKER GRAPHICS 
BY JOE STANFIELD 


І HAVE FOUND THAT TRYING TO CREATE A LARGE AMOUNT OF SCREEN GRAPHICS CAN 
CAUSE VERY LONG DELAYS IN EXECUTION TIME OF MY PROGRAMS. THEREFORE, I 
OFFER THIS APPROACH TO SPEED THEM UP. ALL THE PROGRAMMING IS IN BASIC SO IT 
IS SIMPLE TO ADD TO MOST PROGRAMS. 


THE KEY TO THIS METHOD IS TO BUILD THE ENTIRE GRAPHIC DISPLAY AT THE 
BEGINNING ОҒ A PROGRAM AND. ASSIGN IT A STRING VARIABLE NAME SUCH А8 61%. 
THEN WHEN YOU NEED TO USE IT, JUST USE THE PRINT@ STATMENT AND INSTEAD OF 
BEING DRAWN ON THE SCREEN, IT WILL APPEAR ALMOST INSTANTANEOUSLY! ! 


A USEFUL TRICK IS TO ASSIGN THE MOST COMMON GRAPHICS CHARACTERS A STRING 
NAME TO SAVE PROGRAM SPACE. ЕХ: A1$=CHR$(191) 


THERE ARE SOME PITFALLS AND YOU MUST USE A ; TO CONNECT PRINT LINES TO 
PREVENT CLEARING A PORTION OF YOUR DISPLAY. THE FOLLOWING Is A SHORT 
PROGRAM TO DRAW A BOX AROUND THE OUTSIDE OF THE SCREEN AND THEN PUT SOME 
TEXT INSIDE IT. 


NOTICE ALSO THE SPACE BETWEEN LINES 120 & 190, AND BETWEEN LINES 250 -& 


2000. THESE HELP SEPARATE A PROGRAM INTO DISTINCT BLOCKS AND САМ BE 
ACHEIVED BY ADDING A DOWN ARROW AT THE END OF THE PROGRAM LINE. 


10 ' GRAPHICS PROGRAM BY JOE STANFIELD 


22“ ASSIGN INITIAL VALUES 

25 CLEAR1500 

30 CD$-CHR$(26):" CURSOR DOWN 

40 GAS=CHR$(191):GBS=CHR$(131):GC$=CHR$(176):' GRAPHICS BLOCKS 
50" BUILD А VERTICAL LINE ОҒ 14 BLOCKS 

60 FORX=1TO13 :G1$=GA$+CD$+STRING$ (1,24) :G2$=G2$+G1$ : NEXTX 

80 ' BUILD HORIZONTAL LINES 

80 G3$=STRING$(58,131):C4$=STRINGS$(58,176) 

100 ' ADD ALL GRAPHICS TOGETHER 


110 G5$=G2Z$+GAS+G4$+STRINGS(58,24)+STRING$(14,27) 
120 G6$2C3$«C25«CAS$ 


190 ' PRINT BOX 

200 CLS:PRINTG66,G5$; :PRINT@67,G6$j 

210 PRINT@270, "ENTER THE SECRET PASSWORD: "; 
220 GOSUB2000:IFASC(CH$)-13THEN240 

230 8Р%-5Р%-СН%:60Т0220 

240 PRINT@590,“THE SECRET PASSWORD IS: "SP$; 
250 GOSUB2000:SP$-"":GOTO190 


2000 ' INKEY SUBROUTINE 
2010 CHS$zINKEY$:IFCH$z2""THENZOLIOELSERETURN 


PROGRAMS, etc... 


By W.K. WEILBACHER 


> REVIEW 


0000000 еееееее 
This is the first database for the pocket com- 
BI 
.puter. It is bug free as far as I can tell. This By th Seon 
is essentially а 100 record file, each record..7 ,; SUBJECT: Model I, Level 
characters maximum with 4 modes of processing. It ^ II, Reference Card (26-2106) 
сап be altered to maintain any ‘type of list, sac- 


rificing from file size will allow lines of code This reference card 
for mathematical computations. is a fanfold card con- 

Reserve keys are set for input and output of taining 14 panels of in- 
data. files as Я formation. It isa sum- 





mary, Of-all the Basic 





- CLEARS DATA FILE, BEGINS NEW DATA FILE 


A:RUN 40 - Statements, Basic func- 
X:PRINT#"DATA" --- PRINTS DATA FILE TO TAPE tions, T ;TRSDOS commands 
G:INPUT#"DATA" --- LOADS DATA FILE FROM TAPE and-utilities, апа sev- 
C:CSAVE"NAME" --- SAVES PROGRAM TO TAPE eral other items of sum- 
L:CLOAD"NAME" --- LOADS PROGRAM INTO COMPUTER marized information. 

Reserve keys are set in reserve mode using the: This .is not an educa- 
shift key. tional tool---rather it 


PROGRAM INSTRUCTIONS is Жок «һе person who 


5 knows the Basic language 
The word "name" will appear when you run .the.. but. does. not have all 


Program. Put in a name to be filed in the data- the ‘syntax rules and 
base. The word "phone" will appearon the display. options. memorized. 
Put in a phone number. Іп the righthand corner of ` All the TRSDOS com- 
the display, a.number will appear, indicating the mands: are listed, but 
record number currently being used. You have 100 they are shaded so they 
positions in the file. Each is 7 characters in lare recognizable as be- 
length. А 3 ing different. Five of 
When the word "name" is displayed, you may then the panels list the Ba- 
search, list, change or print the entire file. The sic statements, such as 


functions of the program are (AT 'NAME'): | CLS, GOTO, LPRINT and 
C --- CHANGE THE INFORMATION АТ A LOCATION NUMBER ` RETURN. Three of the 

5 --- ALLOWS SEARCH FOR A NAME IN THE FILE. DISPLAYS panels list the Basic 
NAME. PRESS ENTER FOR PHỌNE #. functions, such as CHR$ 

P --- PRINTS WHOLE FILE. PRESS 'ON' KEY TO BREAK (C); INKEYS, MEM апа 
PROGRAM AND STOP LIST. . SIN(X). Two of the pa- 

L --- LIST A # IN THE FILE nels list the TRSDOS 


` қ Я commands and utilities, 
At Print?  Inputting a Y will print the entire ‘such as BASIC, DIRid, 


file. Any other key will return the name command. KILL апа VERIFY. One 


**note** Line 40 clears all data. Run it prior panel gives the correct 
to starting a new file. power-up sequence for 

the Model I. One panel 

(ed. note: Program is listed on insert. File in gives the “Basic error 
ring binder for future use.) messages. The last two 


panels list the Control 
Keys, Basic Operators, 
Basic Special Characters, 
Basic Edit Commands and 
Video Control Codes. 


W.K. Weilbacher was in technical support for 
Radio Shack for two (2) years. It took him a- 
bout four (4) days to write the above program, 
which he had copyrighted in August of 1980. He 
also noted that with the pocket computer you must 


" = " 2 When programming or 
close а "for-next" loop before opening another debugging programs, this 


RRR RK RRR RA KK KKK KKK RR RK KK RK RRA KKK KERR eee ee card is very handy. The 
Items in USERS' NEWS may be reprinted without cost is about $ 1.00. 
prior permission unless otherwise noted. A copy 

of each publication reprinting a USERS' NEWS i- 

tem should be forwarded to 80-COMPUTER USERS OF 

HOUSTON. 


TAPE LIBRARY 


Tape Librarian, Floyd 
Atkinson reports that 
due to the non-standard- 
ization of cassette- 
based systems because 
of head alignment 
there will be a delay 
in getting tapes to the 
members. Every effort 
is being made to pro- 
duce a testing and a- 
lignment tape so that 
all members' recorders 
will play the tapes 
made. Apparently, some 
members have been hav- 
ing trouble playing the 
tapes because some tapes 
made оп опе recorder 
will not play on all 
others. Atkinson re- 
ports that as soon as 
the alignment tape is 
received, he will noti- 
fy all members so 
alignment of tape heads 
can be done. 


CLASSIFIED ADS 


BASE 2 PRINTERS 


parallel or serial port 
100 characters per second 
bi-directional > 
variable line length 


tractor or friction drive 
8 390.00 
(includes shipping) 
SMITH HASELWCOD 772-0074 





FOR SALE-Model 33 Tele- 
type....includes docu- 
mentation...$ 150.00... 
also, 2 sets 16k ram 
chips.....$ 37.50 per 
set...call Smith Hasel- 
wood at 772-0074. 
ж ж ж 

CELESTINO REYES is look- 
ing for someone to ex- 
plaing basic machine 

language to him. Any- 
one who can help, call 
Celestino at 691-1059. 


SALE of MAILING LIST 


Several firms have 
requested tjat the 
mailing list of USERS' 
NEWS be bought for ad- 
vertising purposes. In 
the past, the group has 
refused to release the 
names of our group mem- 
bers, however the amount 
offered per name could 
add to the club's trea- 
sury and delay the in- 
creasing of membership 
dues. 

Many members already 


are on the mailing 
lists of several .com- 
panies. 


If you do not want 
your name included on 
the mailing list that 
will be sold, please 
notify  VP/SEC. Royce 
Bordman to take your 
name off of the mailing 
list which will be dis- 
tributed to other organ- 
izations and companies. 


Contact Royce at 2806 
Campbell, Houston, Te- 
xas, 77080. 


WHAT'S NEW? 


Soon there will be 


five (5) RADIO SHACK 
Computer Centers in 
Houston. Everyone is 


familiar with the two 
(2) most well known cen- 
ters (6813 Southwest 


Freeway and 5900 North 
Freeway) but there are 
some who do not know a- 


bout the center in Edge- 
brook Plaza at 11543 
Gulf Freeway. Also, a 
new Center has opened in 
the , Cypress Station 
Shopping Center at 2ll-C 
F.M. 1960 West. The 
fifth Center is slated 
toopen sometime in Feb- 
ruary in downtown Houston- 
at 708 Dallas. 


at 6100 Westheimer in Briar- 
grove Plaza reports they have 
received part of their first 
Shipment of TRS-80 software. 


WHO'S NEW? 
Each month,  USERS' 
NEWS will feature a 
short profile of the 
new members who joined 
our group at the pre- 
vious meeting. At the 
last meeting, several 
new members joined our 
group. 
* * * * 
THOMAS COOK has a 
Model I, Level II, l6k, 
cassette. He is in 
charge of 6 ModelII's 
and 1 ‘Model III at Dow 
Chemical using the CPM 
Operating System. 
ж ж ж ж 
LOUIS GALLOWAY uses ә 
TI Model I, бїк with 2 disk 
drives and word processor. 
He is a systems consultant 
working on IBM mainframes. 
* 


* * * 
BASIL MITCHELL has 
an OSI-CIP, 24k, with 2 


disk drives, and analu- 
minum paper printer. He 
is an electronics techni- 


cian at Corrintec. Al- 
though Basil does not 
have a TRS-80, he has 


joined our group hoping 
that much of what we 
have can be adapted to 
his system since his 
System uses the same mi- 
crosoft basic. 
* * * * 
CELESTINO REYES has 
a Model I, Level II,16k 
with cassette, quick 
printer and modem. Не 
is a lead designer for 
Brown & Root and works 
with Computer Aid Draft- 
ing. He has had his 
System for almost 4 1/2 
years. 
* * * * 
KEITH SIMPSON has a 
Model III, l6k with cas- 
sette. He is a coordi- 
nator forMid West Elec- 
tric. He got his system 
for Christmas and is 
just learning about it. 
* * * x 


OFFICERS: EEEGTED 


Three: new, officers 
were elected to віх,(6) 
month terms at спе De- 
cember meeting. : 

BIEL YOUNG was elec- 
ted President- of: 80- 
COMPUTER USERS ОҒ HOUS- 
TON. Our new, Vice- 
Presidenť/Treasurer -is 
ROYCE BORDMAN and the 
group elected :КІР; BAR- 
TRAN as Secretary. . Any 
business matters -should 
be directed sto our. new 
officers. + 





NOTES -ЕКВОМСОМРО5ЕВҮУЕ 


The "ООМЕ:“РВІМТЕН5" 


have beeh recalled 
Contact а local Radio 
Shack stdéré :for in- 


structions oh where the 
printer сап be repaired. 
All Radio Shack stores 
are supposed tobe aware 
of the recall. The prin- 
ter will be repaired at 
no cost. tō the owner. 
Owners. of the*printers 
who sent imtheir regis- 
tration. cards will be 
getting а detter advising 
him of: the. recall. 
* Res ж * 

Again, Radio Shack is 
advising. all who: have 
ordered капу computer 
hardware {or a:computer 
to contact Computer Ser- 


vices .abont :when-your 
item(s) will. be-deli- 
vered. Call Compu- 


ter Services from 8 a.m. 
to 7 p.m. at: - 

1-800-772-5914 or,the 
main switchboard number 
at 1-800-390-3583. Call- 
ing earlier or,later in 
the day, will . get .you 
through. ѕоопег. : 
ics fal * 






* 





The Program Oocfor 


"thing I 


‘perience 





HAVING PROBLEMS WITH YOUR BASTC PROGRAMS? Ask the 
PROGRAM DOCTOR for help. Send your programs оп 
cassette or printed list for testing. The PRO- 
GRAM DOCTOR will also try to help with other sys- 


tem programs and answer programming questions. 
FEI ЖЖЖЖ КОЖО Ж ЖОК А КК КОК КОКК КОККО Ж КОК Ж Ж Ж ОК КЎ Ж Ж К ККК ККК 


~ Since I'm just starting” this column, I will 

tell about some: problems’ T- had in converting 
Radio Shack's Level I Checker to' Level II. Тһе 
LEVEL II BASIC REFERENCE MANUAL' has some informa- 
tion in Appendix I on some'common problems. One 
think they should have mentioned is the 
difference in logical operators. In Level II, 
you need to substitute "or" for "+" and "and" for 
"x". Naturally, you have to. study. the logic in a 
program to determine if а. "+" or "*" need to be 
changed. 

One big difference between Level I and Level 
II is how the computer handles INPUT. Level II 
will blank the next line after .an INPUT. In 
Checkers, this means an entire line of alternate 
half-squares of the checkerboard was blanked out 
along with the numbers: of the squares. These 
need to be redrawn after every INPUT. 

For this, I included the following in a sub- 
routine starting at 6000. 


6100 FOR Ү-0 TO 7:PRINT@(256+8*Y) , (17*Y) ; : NEXT 


This would replace the 

program did a GOSUB 6000. 

Next, I changed line 6200 from: 

6200 FOR N-9 TO 15 STEP 2:GOSUB 3500:NEXT N:FOR X=0 TO 1: 
FOR Y-12 TO 14: SET (X,Y):NEXT Y:NEXT X:RETURN 

to the following: 

6200 FOR N-9 TO 15 STEP.2:GOSUB 3500:NEXT N;FOR Y-12 ТО 14; 
FOR X-0 TO 6 STEP 2:FOR 2-Х%16 TO X*16*15:SET(2,Y);: 
NEXT Z:NEXT X;NEXT Y:RETURN 

This redrew the upper half of the 
squares. 
Lines 1005 and 1010 had conditional GOSUB6000. 

I removed those GOSUB's and added lines 1002 and 

1008. 





,numbers whenever the 


alternate 


1002 GOSUB 6000 ;_ 
1008 GOSUB 6000 
This caused the lines to be redrawn after each 


INPUT. 
ORR ck ROK RRR RRR RR RRR RIK КОК КОК КОК КОК КОК КККК ОК Ж КОКК ЖОЖ ae ЖЖЖ 


THE PROGRAM DOCTOR (Emory C. Wood) received his 
A.A.S. Data Processing from. Lee Jr. College and 
his B.S. in Engineering Technology from Lamar 
University. He worked in programming forthe 
City of Baytown for 1 1/2 years and is now the 
Systems Programmer for Cravens Dargan-& Co., for 
whom he has worked 3 1/2 years. He has had ex- 
in various languages: Cobol, Basic; 
Fotran, RPG, ALC, Compass and. Easycoder. He owns 
a TRS-80 Level It, 16k. 


Med. Cute Complex 







Ш.Т School 
(YD of Public Wealth 


9л) 





PARKING PASS FOR THE 
SCHOOL OF FUBLIC HEALTH. 
DISFLAY THE BOTTOM FART OF THIS FAGE IN YOUR WINDSHIELD, 








PARKING PASS 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
жж 80O0—USERS OF HOUSTON жж 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


ATTENDING FROFESSICONAL MEETING INSIDE 


THE SCHOOL OF кєкї тє HEALTH 





BILL YOUNG, President 
80-COMPUTER USERS OF HOUSTON 


